% V20210224 - 11.11 GW_ADD_SPINNER

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Spinner Example")

% Add title to page.
GW_ADD_TITLEBAR(p, Title$)

% Add descriptive text.
GW_ADD_TEXTBOX(p, "This is an example of the SPINNER control:")

% Add  button to activate the spinner.
GW_ADD_BUTTON(p, "Let's do this!", "show")

% Add  button to stop the spinner.
GW_ADD_BUTTON(p, "Let's stop it!", "stop")

% Let's prepare the spinner.
spin = GW_ADD_SPINNER(p, "Something is happening")

% Now show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Parse user action.
 SW.BEGIN r$

 % Test for button to start.
 SW.CASE "show"
  GW_SHOW_SPINNER(spin)
  SW.BREAK

 % Test for button to stop.
 SW.CASE "stop"
  GW_HIDE_SPINNER()
  SW.BREAK

 SW.END

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of Spinner example."